home *** CD-ROM | disk | FTP | other *** search
/ Dr. Windows 3 / dr win3.zip / dr win3 / WINWORDS / AMI_MCRO.ZIP / CLIPSHOW.SMM < prev    next >
INI File  |  1993-12-08  |  5KB  |  331 lines
  1. [ver]
  2.     4
  3. [sty]
  4.     _macro.sty
  5. [files]
  6. [charset]
  7.     82
  8.     ANSI (Windows, IBM CP 1252)
  9. [revisions]
  10.     0
  11. [prn]
  12.     PostScript Printer
  13. [port]
  14.     LPT1:
  15. [lang]
  16.     1
  17. [desc]
  18.     Show the contents of the Windows Clipboard.
  19.     Lotus WPD Marketing
  20.     Beginner
  21.     Exec, AppMinimize
  22.     
  23.     755411688
  24.     12
  25.     681240805
  26.     17
  27.     2
  28.     217
  29.     1518
  30.     4
  31.     6
  32.     
  33.     
  34.     
  35.     
  36.     
  37.     
  38.     0
  39. [fopts]
  40.     0
  41.     1
  42.     0
  43.     0
  44. [lnopts]
  45.     2
  46.     Body Text
  47.     1
  48. [docopts]
  49.     5
  50.     2
  51. [GramStyle]
  52.     
  53. [l1]
  54.     0
  55. [pg]
  56.     2
  57.     46 0 0 0 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  58.     73 0 0 1025 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  59. [edoc]
  60. <:#288,9360>Macro by <+!>Charlie Pappas<-!>
  61.  
  62. <:#288,9360>Editted by <+!>Mike Jones<-!>
  63.  
  64. <:#276,9360>
  65.  
  66. <:#276,9360>function execsuite()
  67.  
  68. <:#276,9360>app = "clipbrd.exe"
  69.  
  70. <:#276,9360>appname = "Windows Clipboard"
  71.  
  72. <:#276,9360>defdir = "c:\windows"
  73.  
  74. <:#276,9360>ignorekeyboard(1)
  75.  
  76. <:#276,9360>declare missouri(xapp)
  77.  
  78. <:#276,9360>declare getprofile(xappname)
  79.  
  80. <:#276,9360>declare writeprofile(path, xappname)
  81.  
  82. <:#276,9360>declare tryit(path, xapp)
  83.  
  84. <:#276,9360>defstr path;
  85.  
  86. <:#276,9360>
  87.  
  88. <:#276,9360>if appisrunning(appname)
  89.  
  90. <:#276,9360>    activateapp(appname)
  91.  
  92. <:#276,9360>    apprestore(appname)
  93.  
  94. <:#276,9360>    return 1
  95.  
  96. <:#276,9360>endif
  97.  
  98. <:#276,9360>if 0 = doschdir(defdir)
  99.  
  100. <:#276,9360>    if tryit("", app) <;> 31
  101.  
  102. <:#276,9360>        return 1
  103.  
  104. <:#276,9360>    endif
  105.  
  106. <:#276,9360>endif
  107.  
  108. <:#276,9360>if tryit(getprofile(appname), app) <;> 31
  109.  
  110. <:#276,9360>    return 1
  111.  
  112. <:#276,9360>endif
  113.  
  114. <:#276,9360>again:
  115.  
  116. <:#276,9360>if assign(&path, missouri(app)) <<<;> 0
  117.  
  118. <:#276,9360>    if tryit(path, app) <;> 31
  119.  
  120. <:#276,9360>        writeprofile(path, appname)
  121.  
  122. <:#276,9360>    else
  123.  
  124. <:#276,9360>        goto again
  125.  
  126. <:#276,9360>    endif
  127.  
  128. <:#276,9360>endif
  129.  
  130. <:#276,9360>end function
  131.  
  132. <:#276,9360>
  133.  
  134. <:#276,9360>function tryit(path, app)
  135.  
  136. <:#276,9360>doschdir(path)
  137.  
  138. <:#276,9360>return exec(strcat$(path, app), "")
  139.  
  140. <:#276,9360>end function
  141.  
  142. <:#276,9360>
  143.  
  144. <:#276,9360>function writeprofile(path, appname)
  145.  
  146. <:#276,9360>writeprofilestring("LotusApps", appname, path, "amipro.ini")
  147.  
  148. <:#276,9360>end function
  149.  
  150. <:#276,9360>
  151.  
  152. <:#276,9360>function getprofile(appname)
  153.  
  154. <:#276,9360>return getprofilestring$("LotusApps", appname, "amipro.ini")
  155.  
  156. <:#276,9360>end function
  157.  
  158. <:#276,9360>
  159.  
  160. <:#276,9360>function missouri(app)
  161.  
  162. <:#276,9360>defstr box;
  163.  
  164. <:#276,9360>filledit(9001, "*.exe")
  165.  
  166. <:#276,9360>filledit(8007, app)
  167.  
  168. <:#276,9360>if assign(&box, dialogbox(".", "findapp")) <<<;> 1
  169.  
  170. <:#276,9360>    return 0
  171.  
  172. <:#276,9360>endif
  173.  
  174. <:#276,9360>return getcurrentdir$()
  175.  
  176. <:#276,9360>end function
  177.  
  178. <:#276,9360>
  179.  
  180. <:#276,9360>
  181.  
  182. <:#276,9360>DIALOG findapp
  183.  
  184. <:#276,9360>-2134376448 7 70 35 200 97 "" "" "Find Application"
  185.  
  186. <:#276,9360>FON<:f,BArial,>T 14 "IQ Edwardian Pos"
  187.  
  188. <:#276,9360><:f,BArial,>7 34 59 8 1000 1342177280 "static" "&Program path:" 0 
  189.  
  190. <:#276,9360><:f,BArial,>6 45 60 44 9001 1352728579 "list<:f>box" "" 0 
  191.  
  192. <:#276,9360>155 5 40 14 1 1342373889 "button" "OK" 0 
  193.  
  194. <:#276,9360>155 21 40 14 2 1342373888 "button" "Cancel" 0 
  195.  
  196. <:#276,9360>68 34 80 8 7999 1342177280 "static" "" 0 
  197.  
  198. <:#276,9360>7 6 142 9 1006 1342177280 "static" "Change into the directory that contains" 0 
  199.  
  200. <:#276,9360>7 16 107 8 8007 1342177280 "static" "" 0 
  201.  
  202. <:#276,9360>END DIALOG
  203.  
  204. <:#276,9360>
  205.  
  206. >
  207.  
  208. [Embedded]
  209. 00003406
  210. >
  211. [macsum] 6
  212. execsuite 0 0 5 3
  213. tryit 532 2 1 37
  214. writeprofile 613 2 1 42
  215. getprofile 686 1 1 46
  216. missouri 762 1 2 50
  217. findapp 919 0 -1 61
  218. [macse]
  219. 14 execsuite
  220. 7 "clipbrd.exe"
  221. 8 1
  222. 7 "Windows Clipboard"
  223. 8 2
  224. 7 "c:\windows"
  225. 8 3
  226. 0 32 1
  227. 0 1032 "{2}"
  228. 13
  229. 11 00000162
  230. 0 38 "{2}"
  231. 0 1031 "{2}"
  232. 5 1
  233. 15
  234. 9
  235. 5 0
  236. 0 781 "{3}"
  237. 13
  238. 18 0
  239. 11 00000263
  240. 16 tryit "" "{1}"
  241. 13
  242. 5 31
  243. 18 3
  244. 11 00000263
  245. 5 1
  246. 15
  247. 9
  248. 16 getprofile "{2}"
  249. 13
  250. 16 tryit [X] "{1}"
  251. 13
  252. 5 31
  253. 18 3
  254. 11 00000349
  255. 5 1
  256. 15
  257. 9
  258. 16 missouri "{1}"
  259. 13
  260. 0 805 &4 [X]
  261. 13
  262. 5 0
  263. 18 1
  264. 11 00000520
  265. 16 tryit "{4}" "{1}"
  266. 13
  267. 5 31
  268. 18 3
  269. 11 00000507
  270. 16 writeprofile "{4}" "{2}"
  271. 10 00000520
  272. 10 00000349
  273. 6 0
  274. 15
  275. 9
  276. 14 tryit
  277. 0 781 "{0}"
  278. 0 16 "{0}" "{1}"
  279. 13
  280. 0 22 [X] ""
  281. 13
  282. 15
  283. 9
  284. 6 2
  285. 15
  286. 9
  287. 14 writeprofile
  288. 0 287 "LotusApps" "{1}" "{0}" "amipro.ini"
  289. 6 2
  290. 15
  291. 9
  292. 14 getprofile
  293. 0 286 "LotusApps" "{0}" "amipro.ini"
  294. 13
  295. 15
  296. 9
  297. 6 1
  298. 15
  299. 9
  300. 14 missouri
  301. 0 31 9001 "*.exe"
  302. 0 31 8007 "{0}"
  303. 0 26 "." "findapp"
  304. 13
  305. 0 805 &2 [X]
  306. 13
  307. 5 1
  308. 18 1
  309. 11 00000127
  310. 5 0
  311. 15
  312. 9
  313. 0 290
  314. 13
  315. 15
  316. 9
  317. 6 1
  318. 15
  319. 9
  320. DIALOG findapp
  321. -2134376448 7 70 35 200 97 "" "" "Find Application" 
  322. FONT 14 "IQ Edwardian Pos" 
  323. 7 34 59 8 1000 1342177280 "static" "&Program path:" 0 
  324. 6 45 60 44 9001 1352728579 "listbox" "" 0 
  325. 155 5 40 14 1 1342373889 "button" "OK" 0 
  326. 155 21 40 14 2 1342373888 "button" "Cancel" 0 
  327. 68 34 80 8 7999 1342177280 "static" "" 0 
  328. 7 6 142 9 1006 1342177280 "static" "Change into the directory that contains" 0 
  329. 7 16 107 8 8007 1342177280 "static" "" 0 
  330. 00003431
  331.